home *** CD-ROM | disk | FTP | other *** search
/ PC-Blue - MS DOS Public Domain Library / PC-Blue MS-DOS Public Domain Library - NYACC.iso / vol029 / screen.bas < prev    next >
Encoding:
BASIC Source File  |  1987-01-11  |  2.3 KB  |  72 lines
  1. 10 CLS
  2. 20 CLS:KEY OFF
  3. 30 REM----------------------------------------------
  4. 40 REM                SCREEN.BAS
  5. 50 REM    BUILD A SCREEN FORMAT FOR DATA ENTRY
  6. 60 REM----------------------------------------------
  7. 70 REM
  8. 80 OPEN "I",2, "HEADER.DAT"
  9. 90  INPUT #2,FSCREEN$,ROOT%,LNG%,LNF%,AN%,LINS%,N%,SIZE%,INDEX$,MAST$
  10. 100 CLOSE 2
  11. 110 FOR I%=1 TO 10:PRINT:NEXT I%
  12. 120 PRINT" Enter a Screen Form one line at a time."
  13. 130 PRINT
  14. 131 PRINT"EXAMPLE:   1 LAST NAME *----------------
  15. 132 PRINT"           2 FIRST :---------------
  16. 133 PRINT"           3 STREET:---------------
  17. 134 PRINT"           4 CITY  :----------------------
  18. 135 PRINT"           5 STATE :----      ZIP:----------
  19. 136 PRINT"           6 PHONE :---------------
  20. 140 PRINT:PRINT:PRINT" Remember these codes:
  21. 150 PRINT
  22. 160 PRINT"                * = keyed (indexed) value"
  23. 170 PRINT"                : = begins a field
  24. 180 PRINT"                - = field designation"
  25. 190 FOR I%=1 TO  3:PRINT:NEXT I%
  26. 200 DIM RW$(LINS%)
  27. 210 FOR L%=1 TO LINS%
  28. 220  PRINT USING "## ";L%;
  29. 230  LINE INPUT RW$(L%)
  30. 240 NEXT L%
  31. 250 REM--------------------------------
  32. 260 REM      edit it
  33. 270 REM--------------------------------
  34. 280 PRINT
  35. 290 INPUT "Enter 0 to stop, or line number to change: ";L%
  36. 300 IF L%<= 0 OR L%>LINS% THEN 390
  37. 310  PRINT USING "## ";L%;
  38. 320  PRINT RW$(L%)
  39. 330  PRINT USING "## ";L%;
  40. 340  LINE INPUT RW$(L%)
  41. 350 GOTO 280
  42. 360 REM-----------------------------------------
  43. 370 REM     file it in fscreen$
  44. 380 REM-----------------------------------------
  45. 390 REM
  46. 400 PRINT:LINE INPUT "Do you want hard copy ?";Y$
  47. 410 IF Y$<>"y" AND Y$<>"Y" THEN 440
  48. 420 GOSUB 540:GOTO 400
  49. 430 REM------------------------------------
  50. 440 OPEN "o",1, FSCREEN$
  51. 450  FOR L%=1 TO LINS%
  52. 460      PRINT #1,RW$(L%)
  53. 470  NEXT L%
  54. 480 CLOSE 1
  55. 490 PRINT:PRINT"Form saved in ";FSCREEN$
  56. 500 RUN "dbmenu"
  57. 510 REM-----------------------------------
  58. 520 REM        hard copy
  59. 530 REM-----------------------------------
  60. 540 LPRINT:LPRINT "                    Screen Form ";FSCREEN$
  61. 550 LPRINT:LPRINT
  62. 560 FOR L%=1 TO LINS%
  63. 570  LPRINT USING "## ";L%:LPRINT RW$(L%)
  64. 580 NEXT L%
  65. 590 LPRINT:LPRINT:LPRINT
  66. 600 RETURN
  67. T:LPRINT
  68. 560 FOR L%=1 TO LINS%
  69. 570  LPRINT USING "## ";L%:LPRINT RW$(L%)
  70. 580 NEXT L%
  71. 590 LPRINT:LPRINT:LPRINT
  72.